unit uClasseCaixa;

interface

uses
  uClasseBase;

type
  TCaixa = class(TConsultaBase)
  const
    Tabela = 'Caixa';
    PrimaryKey = 'nr_sequencia';
  private
    Fds_caixa: string;
    Fnr_sequencia: integer;
    Fnm_arquivo: string;
    procedure Setds_caixa(const Value: string);
    procedure Setnr_sequencia(const Value: integer);
    procedure Setnm_arquivo(const Value: string);
  public
    class function GetTabela:string;override;
    class function GetPrimaryKey:string;override;
    constructor Create;overload;
  published
    property nr_sequencia:integer read Fnr_sequencia write Setnr_sequencia;
    property ds_caixa:string read Fds_caixa write Setds_caixa;
    property nm_arquivo:string read Fnm_arquivo write Setnm_arquivo;
  end;

implementation

uses
  uUtils;

{ TCaixa }

constructor TCaixa.Create;
begin
  FADOConn := TConexao.Interna;
  inherited;
end;

class function TCaixa.GetPrimaryKey: string;
begin
  result := PrimaryKey;
end;

class function TCaixa.GetTabela: string;
begin
  result := Tabela;
end;

procedure TCaixa.Setds_caixa(const Value: string);
begin
  Fds_caixa := Value;
end;

procedure TCaixa.Setnm_arquivo(const Value: string);
begin
  Fnm_arquivo := Value;
end;

procedure TCaixa.Setnr_sequencia(const Value: integer);
begin
  Fnr_sequencia := Value;
end;

end.
